100
How can I prevent showing the border for selected/highlight/hot items

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuSelBorderColor to (RGB(255,255,255))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
99
How can I change the item's background/backcolor, when the cursor hovers it (hot)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComHotBackColor of hoItem to (RGB(255,0,0))
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "Item[bghot=RGB(255,0,0)]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
98
How can I change the item's background/backcolor

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBackColor of hoItem to (RGB(255,0,0))
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComBackColor of hoItem1 to |CI$1000000
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComToString of hoItem2 to "Item[bg=RGB(255,0,0)]"
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
97
How can I specify/assign the item's identifier

Procedure OnCreate
	Forward Send OnCreate
	Set ComDebug to True
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "ID 1" 0 1000 to Nothing
		Variant voItem
		Get ComAdd of hoItems "ID 2" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComID of hoItem to 1001
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComToString of hoItem1 to "ID 3[id=1002]"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
96
The popup is displayed using a fade/light-up effect. Is it possible to prevent that

Procedure OnCreate
	Forward Send OnCreate
	Set ComShowPopupEffect to OLEexShowPopupDirect
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
95
How can I show semi-transparent popups

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupVisibility to 50
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
94
How can I change the popup's border

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
93
How can I show a horizontal separator/line between groups (method 3,EBN color)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComAllowEdit of hoItem1 to OLEexItemEditSlider
					Set ComEditBorder of hoItem1 to OLEexEditBorderNone
					Set ComEditWidth of hoItem1 to -128
					Set ComEditValue of hoItem1 to 25
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComEnabled of hoItem2 to False
					Set ComBackColor of hoItem2 to |CI$1000000
					Set ComItemHeight of hoItem2 to 8
					Set ComCaptionWidth of hoItem2 to 128
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComAllowEdit of hoItem3 to OLEexItemEditSlider
					Set ComEditBorder of hoItem3 to OLEexEditBorderNone
					Set ComEditWidth of hoItem3 to -128
					Set ComEditValue of hoItem3 to 25
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
92
How can I show a horizontal separator/line between groups (method 2,solid color)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComAllowEdit of hoItem1 to OLEexItemEditSlider
					Set ComEditBorder of hoItem1 to OLEexEditBorderNone
					Set ComEditWidth of hoItem1 to -128
					Set ComEditValue of hoItem1 to 25
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComEnabled of hoItem2 to False
					Set ComBackColor of hoItem2 to (RGB(128,128,128))
					Set ComItemHeight of hoItem2 to 8
					Set ComCaptionWidth of hoItem2 to 128
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComAllowEdit of hoItem3 to OLEexItemEditSlider
					Set ComEditBorder of hoItem3 to OLEexEditBorderNone
					Set ComEditWidth of hoItem3 to -128
					Set ComEditValue of hoItem3 to 25
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
91
How can I show a horizontal separator/line between groups (method 1,pattern)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexGroupPopupVertical + OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComAllowEdit of hoItem1 to OLEexItemEditSlider
					Set ComEditBorder of hoItem1 to OLEexEditBorderNone
					Set ComEditWidth of hoItem1 to -128
					Set ComEditValue of hoItem1 to 25
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" 2 Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComGroupPopup of hoItem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoItem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComAdd of hoItems2 "" Nothing Nothing to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Set ComEnabled of hoItem3 to False
							Set ComItemHeight of hoItem3 to 8
							Set ComCaptionWidth of hoItem3 to 128
						Send Destroy to hoItem3
						Set ComBackgroundExt of hoItems2 to "none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]"
					Send Destroy to hoItems2
				Send Destroy to hoItem2
				Variant voItem4
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComAllowEdit of hoItem4 to OLEexItemEditSlider
					Set ComEditBorder of hoItem4 to OLEexEditBorderNone
					Set ComEditWidth of hoItem4 to -128
					Set ComEditValue of hoItem4 to 25
				Send Destroy to hoItem4
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
90
How can I show a vertical separator/line between groups (method 3,EBN color)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComItemHeight of hoItem1 to 128
					Set ComAllowEdit of hoItem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoItem1 to OLEexEditBorderNone
					Set ComEditWidth of hoItem1 to 32
					Set ComEditValue of hoItem1 to 25
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComEnabled of hoItem2 to False
					Set ComBackColor of hoItem2 to |CI$1000000
					Set ComItemHeight of hoItem2 to 96
					Set ComCaptionWidth of hoItem2 to 8
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComItemHeight of hoItem3 to 128
					Set ComAllowEdit of hoItem3 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoItem3 to OLEexEditBorderNone
					Set ComEditWidth of hoItem3 to 32
					Set ComEditValue of hoItem3 to 25
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
89
How can I show a vertical separator/line between groups (method 2,solid color)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComItemHeight of hoItem1 to 128
					Set ComAllowEdit of hoItem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoItem1 to OLEexEditBorderNone
					Set ComEditWidth of hoItem1 to 32
					Set ComEditValue of hoItem1 to 25
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComEnabled of hoItem2 to False
					Set ComBackColor of hoItem2 to (RGB(128,128,128))
					Set ComItemHeight of hoItem2 to 96
					Set ComCaptionWidth of hoItem2 to 8
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComItemHeight of hoItem3 to 128
					Set ComAllowEdit of hoItem3 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoItem3 to OLEexEditBorderNone
					Set ComEditWidth of hoItem3 to 32
					Set ComEditValue of hoItem3 to 25
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
88
How can I show a vertical separator/line between groups (method 1,pattern)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComItemHeight of hoItem1 to 128
					Set ComAllowEdit of hoItem1 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoItem1 to OLEexEditBorderNone
					Set ComEditWidth of hoItem1 to 32
					Set ComEditValue of hoItem1 to 25
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" 2 Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComGroupPopup of hoItem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
					Variant voItems2
					Get ComItems of hoItem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComAdd of hoItems2 "" Nothing Nothing to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Set ComEnabled of hoItem3 to False
							Set ComItemHeight of hoItem3 to 96
							Set ComCaptionWidth of hoItem3 to 8
						Send Destroy to hoItem3
						Set ComBackgroundExt of hoItems2 to "none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]"
					Send Destroy to hoItems2
				Send Destroy to hoItem2
				Variant voItem4
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComItemHeight of hoItem4 to 128
					Set ComAllowEdit of hoItem4 to (OLEexItemEditVertical + OLEexItemEditSlider)
					Set ComEditBorder of hoItem4 to OLEexEditBorderNone
					Set ComEditWidth of hoItem4 to 32
					Set ComEditValue of hoItem4 to 25
				Send Destroy to hoItem4
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
87
How can I show a pattern on the items

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "2,2,2,12"
		Set ComBackgroundExt of hoItems to "root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,align=0x21])"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
86
How can I show a thick frame arround the items

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "2,2,2,12"
		Set ComBackgroundExt of hoItems to "root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,align=0x21])"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
85
How can I add some additional icons on the background

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "0,0,0,16"
		Set ComBackgroundExt of hoItems to "root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
84
How can I add some additional text on the background

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
		Set ComBackColor of hoItems to (RGB(255,255,255))
		Set ComPadding of hoItems to "0,0,0,8"
		Set ComBackgroundExt of hoItems to "root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
83
How can I disable incremental searching

Procedure OnCreate
	Forward Send OnCreate
	Set ComPopupIncrementalSearch to OLEexNoIncrementalSearch
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Popup(Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
82
How can I assign a tooltip to an item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]"
End_Procedure
81
How can I assign a tooltip to an item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "ToolTip" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComTooltip of hoItem to "This is a bit of text that should be shown when cursor hovers the item"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
80
How can I assign a spin field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Spin" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditSpin
			Set ComEditWidth of hoItem to 16
			Set ComEditValue of hoItem to 15
			Set ComEditBorder of hoItem to OLEexEditBorderNone
			Set ComEditOption of hoItem OLEexEditMaxValue to 1000
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Edit-Spin" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComAllowEdit of hoItem1 to (OLEexItemEditSpin + OLEexItemEditText)
			Set ComEditWidth of hoItem1 to -128
			Set ComEditValue of hoItem1 to 15
			Set ComEditOption of hoItem1 OLEexEditMaxValue to 1000
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Splider-Spin" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComAllowEdit of hoItem2 to (OLEexItemEditSpin + OLEexItemEditSlider)
			Set ComEditWidth of hoItem2 to -128
			Set ComEditValue of hoItem2 to 25
			Set ComEditBorder of hoItem2 to OLEexEditBorderNone
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
79
How can I assign a spin field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][editwidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]"
End_Procedure
78
How can I add a vertical slider (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]"
End_Procedure
77
How can I add a vertical slider (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Vertical" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComItemHeight of hoItem to 128
			Set ComAllowEdit of hoItem to (OLEexItemEditVertical + OLEexItemEditSlider)
			Set ComEditBorder of hoItem to OLEexEditBorderNone
			Set ComEditWidth of hoItem to 32
			Set ComEditValue of hoItem to 25
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
76
How can I disable an editor (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]"
End_Procedure
75
How can I disable an editor (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Disabled" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditText
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to "text-box"
			Set ComEnabled of hoItem to False
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
74
How can I lock an editor (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]"
End_Procedure
73
How can I lock an editor (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Locked" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to (OLEexItemEditReadOnly + OLEexItemEditText)
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to "disabled text-box"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
72
How can I assign a font field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Font" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditFont
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to "Tahoma"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
71
How can I assign a font field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]"
End_Procedure
70
How can I assign a color field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Color" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditColor
			Set ComEditBorder of hoItem to OLEexEditBorderNone
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to 255
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
69
How can I assign a color field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]"
End_Procedure
68
How can I assign a scrollbar field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "ScrollBar" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditScrollBar
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to "25"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
67
How can I assign a scrollbar field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]"
End_Procedure
66
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditProgress
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to 25
			Set ComEditOption of hoItem OLEexEditChangeToolTip to "`Current value is: ` + value"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
65
How can I hide the tooltip beging shown when I change the slider/scroll/progress value

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditProgress
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to 25
			Set ComEditOption of hoItem OLEexEditChangeToolTip to ""
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
64
How can I assign a progress field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Progress" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditProgress
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to 25
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
63
How can I assign a progress field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Progress[id=10][edittype=0x04][edit=25][editwidth=-128]"
End_Procedure
62
How can I assign a slider field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Slider" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditSlider
			Set ComEditWidth of hoItem to -128
			Set ComEditValue of hoItem to 25
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Slider" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComAllowEdit of hoItem1 to OLEexItemEditSlider
			Set ComEditBorder of hoItem1 to OLEexEditBorderNone
			Set ComEditWidth of hoItem1 to -128
			Set ComEditOption of hoItem1 OLEexEditMinValue to 50
			Set ComEditOption of hoItem1 OLEexEditMaxValue to 450
			Set ComEditOption of hoItem1 OLEexEditTickStyle to 2
			Set ComEditOption of hoItem1 OLEexEditTickFrequency to 50
			Set ComEditOption of hoItem1 OLEexEditTickLabel to "value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor FF0000>'+value : '' ) )"
			Set ComEditValue of hoItem1 to 345
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
61
How can I assign a slider field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2][freq=50][ticklabel=value = vmin ? '<br><font ;6><b>'+value : ( value = vmax ? '<br><font ;6><b>'+value : ( value = 200 ? '<br><font ;6><b><fgcolor FF0000>'+value : '' ) )][editwidth=-128]"
End_Procedure
60
How can I assign a mask (time) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Time" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditMask
			Set ComEditWidth of hoItem to -128
			Set ComEditMask of hoItem to "99:00:00;;0;overtype,warning=Invalid character"
			Set ComEditValue of hoItem to "123456"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
59
How can I assign a mask (time) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]"
End_Procedure
58
How can I assign a mask (license key) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "License Key" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditMask
			Set ComEditWidth of hoItem to -128
			Set ComEditMask of hoItem to "AAAA-AAAA-AAAA-AAAA"
			Set ComEditValue of hoItem to "1234"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
57
How can I assign a mask (license key) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]"
End_Procedure
56
How can I assign a mask (IP address) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "IP Address" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditMask
			Set ComEditWidth of hoItem to -128
			Set ComEditMask of hoItem to "{0,255}.{0,255}.{0,255}.{0,255}"
			Set ComEditValue of hoItem to "1.2.3.4"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
55
How can I assign a mask (IP address) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]"
End_Procedure
54
How can I assign a mask (phone) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Phone" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditMask
			Set ComEditWidth of hoItem to -128
			Set ComEditMask of hoItem to "!(9999) 000 000;;;empty,select=4,overtype,beep"
			Set ComEditValue of hoItem to "0771638317"
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
53
How can I assign a mask (phone) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]"
End_Procedure
52
How can I assign a mask (date) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditMask
			Set ComEditWidth of hoItem to -128
			Set ComEditMask of hoItem to "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
			Set ComEditValue of hoItem to "2/15/2015"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Date" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComAllowEdit of hoItem1 to OLEexItemEditMask
			Set ComEditWidth of hoItem1 to -128
			Set ComEditMask of hoItem1 to "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
			Set ComEditValue of hoItem1 to "2/15/2015"
		Send Destroy to hoItem1
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
51
How can I assign a mask (date) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edittype=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype][editwidth=-128]"
End_Procedure
50
How can I assign a mask (integer) field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Integer" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditMask
			Set ComEditWidth of hoItem to -128
			Set ComEditMask of hoItem to ";;;float,grouping=,digits=0"
			Set ComEditValue of hoItem to 1000
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Integer-Grouping" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComAllowEdit of hoItem1 to OLEexItemEditMask
			Set ComEditWidth of hoItem1 to -128
			Set ComEditMask of hoItem1 to ";;;float,decimal=,digits=0,select=1"
			Set ComEditValue of hoItem1 to 1000
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "Integer-In-Range" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComAllowEdit of hoItem2 to OLEexItemEditMask
			Set ComEditWidth of hoItem2 to -128
			Set ComEditMask of hoItem2 to "{0,2050}"
			Set ComEditValue of hoItem2 to 1000
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
49
How can I assign a mask (integer) field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x02][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask={0,2050}][editwidth=-128]"
End_Procedure
48
How can I assign a mask field to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Mask" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditMask
			Set ComEditWidth of hoItem to -128
			Set ComEditMask of hoItem to ";;;float,select=1"
			Set ComEditValue of hoItem to 1000
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
47
How can I assign a mask field to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]"
End_Procedure
46
How can I assign an edit / text-box to the item (method 2)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Mask" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditText
			Set ComEditValue of hoItem to "this is a text"
			Set ComEditWidth of hoItem to -128
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
45
How can I assign an edit / text-box to the item (method 1)

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant   llItm
	Forward Send OnComEditChange llItm
	Showln llItm
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "Text-Box[edit=this is a text][editwidth=-128]"
End_Procedure
44
How can I display a tab into the toolbar (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
		Variant voItem
		Get ComItem of hoItems -10 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "" 0 0 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComPadding of hoItem1 to "8,0,0,0"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComToString of hoItem2 to "[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
					Set ComCaption of hoItem2 to "Page<off -5><font ;5><b>1</b></font></off>"
					Variant voItems2
					Get ComItems of hoItem2 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Variant voItem3
						Get ComItem of hoItems2 0 to voItem3
						Handle hoItem3
						Get Create (RefClass(cComItem)) to hoItem3
						Set pvComObject of hoItem3 to voItem3
							Variant voItems3
							Get ComItems of hoItem3 to voItems3
							Handle hoItems3
							Get Create (RefClass(cComItems)) to hoItems3
							Set pvComObject of hoItems3 to voItems3
								Variant voItem4
								Get ComAdd of hoItems3 "add here fields for page 1" Nothing Nothing to voItem4
								Handle hoItem4
								Get Create (RefClass(cComItem)) to hoItem4
								Set pvComObject of hoItem4 to voItem4
									Set ComID of hoItem4 to -1000
									Set ComEnabled of hoItem4 to False
									Set ComBackColor of hoItem4 to (RGB(255,0,0))
								Send Destroy to hoItem4
							Send Destroy to hoItems3
						Send Destroy to hoItem3
					Send Destroy to hoItems2
				Send Destroy to hoItem2
				Variant voItem5
				Get ComAdd of hoItems1 "New Page" Nothing Nothing to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Set ComToString of hoItem5 to "[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))"
					Set ComCaption of hoItem5 to "Page<off -5><font ;5><b>2</b></font></off>"
					Variant voItems4
					Get ComItems of hoItem5 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Variant voItem6
						Get ComItem of hoItems4 0 to voItem6
						Handle hoItem6
						Get Create (RefClass(cComItem)) to hoItem6
						Set pvComObject of hoItem6 to voItem6
							Variant voItems5
							Get ComItems of hoItem6 to voItems5
							Handle hoItems5
							Get Create (RefClass(cComItems)) to hoItems5
							Set pvComObject of hoItems5 to voItems5
								Variant voItem7
								Get ComAdd of hoItems5 "add here fields for page 2" Nothing Nothing to voItem7
								Handle hoItem7
								Get Create (RefClass(cComItem)) to hoItem7
								Set pvComObject of hoItem7 to voItem7
									Set ComID of hoItem7 to -1001
									Set ComEnabled of hoItem7 to False
									Set ComBackColor of hoItem7 to (RGB(0,255,0))
								Send Destroy to hoItem7
							Send Destroy to hoItems5
						Send Destroy to hoItem6
					Send Destroy to hoItems4
				Send Destroy to hoItem5
				Variant voItem8
				Get ComAdd of hoItems1 "" 0 0 to voItem8
				Handle hoItem8
				Get Create (RefClass(cComItem)) to hoItem8
				Set pvComObject of hoItem8 to voItem8
					Set ComPadding of hoItem8 to "8,0,0,0"
				Send Destroy to hoItem8
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
43
How can I add check-buttons to items, without showing the check-box (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComChecked of hoItem1 to True
					Set ComShowCheckedAsSelected of hoItem1 to OLEexDisplayItemHighlight
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
					Set ComShowCheckedAsSelected of hoItem2 to OLEexDisplayItemHighlight
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Check 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCheck of hoItem3 to True
					Set ComChecked of hoItem3 to True
					Set ComShowCheckedAsSelected of hoItem3 to OLEexDisplayItemHighlight
				Send Destroy to hoItem3
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
42
How can I add check-buttons to items, without showing the check-box (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])"
End_Procedure
41
How can I add radio buttons to items, without showing the radio-buttons (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" 1000 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComShowCheckedAsSelected of hoItem1 to OLEexDisplayItemHighlight
					Set ComRadio of hoItem1 to True
					Set ComRadioGroup of hoItem1 to 100
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" 1001 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComShowCheckedAsSelected of hoItem2 to OLEexDisplayItemHighlight
					Set ComRadio of hoItem2 to True
					Set ComRadioGroup of hoItem2 to 100
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 2" 1003 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComShowCheckedAsSelected of hoItem3 to OLEexDisplayItemHighlight
					Set ComRadio of hoItem3 to True
					Set ComRadioGroup of hoItem3 to 100
				Send Destroy to hoItem3
				Variant voItem4
				Get ComItem of hoItems1 1000 to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComChecked of hoItem4 to True
				Send Destroy to hoItem4
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
40
How can I add radio buttons to items, without showing the radio-buttons (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][id=1002])"
End_Procedure
39
How can I add check-buttons to items (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCheck of hoItem1 to True
					Set ComChecked of hoItem1 to True
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCheck of hoItem2 to True
				Send Destroy to hoItem2
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
38
How can I add check-buttons to items (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "[group=0x3](Check 1[chk=1],Check 2[chk=0])"
End_Procedure
37
How can I add radio buttons to items (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to OLEexGroupPopup
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Radio 1" 1000 to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComRadio of hoItem1 to True
					Set ComRadioGroup of hoItem1 to 100
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Radio 2" 1001 to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComRadio of hoItem2 to True
					Set ComRadioGroup of hoItem2 to 100
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Radio 2" 1003 to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComRadio of hoItem3 to True
					Set ComRadioGroup of hoItem3 to 100
				Send Destroy to hoItem3
				Variant voItem4
				Get ComItem of hoItems1 1000 to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComChecked of hoItem4 to True
				Send Destroy to hoItem4
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
36
How can I add radio buttons to items (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComToString to "[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])"
End_Procedure
35
How can I change the selection/highlighting color

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelBackColor to (RGB(0,0,0))
	Set ComBackground OLEexMenuSelBorderColor to (RGB(128,0,0))
	Set ComBackground OLEexMenuHotForeColor to (RGB(255,255,255))
	Set ComToString to "[group=3](Item 1[chk],Item 2[chk])"
End_Procedure
34
How can I prevent showing/hide the border on the selected/highlighted item

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuSelBorderColor to (ComSelBackColor(Self))
	Set ComToString to "Item 1,Item 2"
End_Procedure
33
How can I display a tab into the toolbar (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexMenuSelBorderColor to (RGB(240,240,240))
	Set ComToString to "[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font ;5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-1001][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComItem of hoItems -1000 to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBackColor of hoItem to (RGB(255,0,0))
		Send Destroy to hoItem
	Send Destroy to hoItems
	Variant voItems1
	Get ComItems to voItems1
	Handle hoItems1
	Get Create (RefClass(cComItems)) to hoItems1
	Set pvComObject of hoItems1 to voItems1
		Variant voItem1
		Get ComItem of hoItems1 -1001 to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComBackColor of hoItem1 to (RGB(0,255,0))
		Send Destroy to hoItem1
	Send Destroy to hoItems1
End_Procedure
32
How do I prevent highlighting the item (method 2.b)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "No highlight" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComEnabled of hoItem to False
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
31
How do I prevent highlighting the item (method 2.a)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "No highlight" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Set ComShowPopupArrow of hoItem to False
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
30
How do I prevent highlighting the item (method 1.b)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "No highlight[dis],Item 2,Item 3"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
29
How do I prevent highlighting the item (method 1.a)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "No highlight[group=0x3][arrow=0]([]),Item 2,Item 3"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
28
How can I can I assign pictures or images for the item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComHTMLImage of hoItem to "pic1"
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComHTMLImage of hoItem1 to "pic2"
		Send Destroy to hoItem1
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "Item <img>pic1</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item <img>pic2</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "<img>pic1</img> Item <img>pic2</img>" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
27
How can I can I assign pictures or images for the item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
	Set ComToString to "Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>"
End_Procedure
26
How can I can I assign icons for the item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComImage of hoItem to 1
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "Item" Nothing Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Set ComImage of hoItem1 to 2
		Send Destroy to hoItem1
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item <img>2</img>" Nothing Nothing to Nothing
		Get ComAdd of hoItems "" 1 Nothing to Nothing
		Variant voItem2
		Get ComAdd of hoItems "Item <img>1</img>" Nothing Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Set ComImage of hoItem2 to 1
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
25
How can I can I assign icons for the item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
24
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "2,2,2,2"
		Set ComBackColor of hoItems to |CI$1000000
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
23
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
22
How can I change the background color for a collection of items/group (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComPadding of hoItems to "2,2,2,2"
		Set ComBackColor of hoItems to (RGB(255,0,0))
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
21
How can I change the background color for a collection of items/group (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
20
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBackColor of hoItem to |CI$1000000
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
19
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2[bg=0x1000000],Item 3"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
18
How can I change the background color for a specified item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Variant voItem
		Get ComAdd of hoItems "Item 2" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComBackColor of hoItem to (RGB(255,0,0))
		Send Destroy to hoItem
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
17
How can I change the background color for a specified item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2[bg=RGB(255,0,0)],Item 3"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
16
How can I change the visual appearance (EBN) of the floating popups (method 2, applies to single popup)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to |CI$1000000
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
15
How can I change the visual appearance (EBN) of the floating popups (method 1, applies to all)

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Popup(Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Set ComPopupAppearance to |CI$1000000
	Send ComRefresh
End_Procedure
14
How can I change the visual appearance of the floating popups (method 2, applies to single popup)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Set ComPopupAppearance of hoItems1 to OLEShadowBorder
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
13
How can I change the visual appearance of the floating popups (method 1, applies to all)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Popup(Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Set ComPopupAppearance to OLEShadowBorder
	Send ComRefresh
End_Procedure
12
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "Popup" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
11
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Popup(Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
10
How can I arrange the items by grouping (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Horizontal" 2 Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComGroupPopup of hoItem1 to OLEexGroupPopup
					Variant voItems2
					Get ComItems of hoItem1 to voItems2
					Handle hoItems2
					Get Create (RefClass(cComItems)) to hoItems2
					Set pvComObject of hoItems2 to voItems2
						Get ComAdd of hoItems2 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems2 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
					Send Destroy to hoItems2
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCaptionWidth of hoItem2 to 16
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Vertical" 2 Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComAlignment of hoItem3 to OLEexCenter
					Set ComGroupPopup of hoItem3 to (OLEexGroupPopupVertical + OLEexGroupPopup)
					Variant voItems3
					Get ComItems of hoItem3 to voItems3
					Handle hoItems3
					Get Create (RefClass(cComItems)) to hoItems3
					Set pvComObject of hoItems3 to voItems3
						Get ComAdd of hoItems3 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems3 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
					Send Destroy to hoItems3
				Send Destroy to hoItem3
				Variant voItem4
				Get ComAdd of hoItems1 "" Nothing Nothing to voItem4
				Handle hoItem4
				Get Create (RefClass(cComItem)) to hoItem4
				Set pvComObject of hoItem4 to voItem4
					Set ComCaptionWidth of hoItem4 to 16
				Send Destroy to hoItem4
				Variant voItem5
				Get ComAdd of hoItems1 "Popup" 2 Nothing to voItem5
				Handle hoItem5
				Get Create (RefClass(cComItem)) to hoItem5
				Set pvComObject of hoItem5 to voItem5
					Variant voItems4
					Get ComItems of hoItem5 to voItems4
					Handle hoItems4
					Get Create (RefClass(cComItems)) to hoItems4
					Set pvComObject of hoItems4 to voItems4
						Get ComAdd of hoItems4 "Sub-Item <b>A</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems4 "Sub-Item <b>B</b>" Nothing Nothing to Nothing
						Get ComAdd of hoItems4 "Sub-Item <b>C</b>" Nothing Nothing to Nothing
					Send Destroy to hoItems4
				Send Destroy to hoItem5
			Send Destroy to hoItems1
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
9
How can I arrange the items by grouping (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x0101][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=160])"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
8
How can I arrange some items vertically, and some horizontally (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoItem
		Variant voItem1
		Get ComAdd of hoItems "" 2 Nothing to voItem1
		Handle hoItem1
		Get Create (RefClass(cComItem)) to hoItem1
		Set pvComObject of hoItem1 to voItem1
			Variant voItems2
			Get ComItems of hoItem1 to voItems2
			Handle hoItems2
			Get Create (RefClass(cComItems)) to hoItems2
			Set pvComObject of hoItems2 to voItems2
				Get ComAdd of hoItems2 "4" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "5" Nothing Nothing to Nothing
				Get ComAdd of hoItems2 "6" Nothing Nothing to Nothing
			Send Destroy to hoItems2
			Set ComGroupPopup of hoItem1 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoItem1
		Variant voItem2
		Get ComAdd of hoItems "" 2 Nothing to voItem2
		Handle hoItem2
		Get Create (RefClass(cComItem)) to hoItem2
		Set pvComObject of hoItem2 to voItem2
			Variant voItems3
			Get ComItems of hoItem2 to voItems3
			Handle hoItems3
			Get Create (RefClass(cComItems)) to hoItems3
			Set pvComObject of hoItems3 to voItems3
				Get ComAdd of hoItems3 "7" Nothing Nothing to Nothing
				Get ComAdd of hoItems3 "8" Nothing Nothing to Nothing
				Get ComAdd of hoItems3 "9" Nothing Nothing to Nothing
			Send Destroy to hoItems3
			Set ComGroupPopup of hoItem2 to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoItem2
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
7
How can I arrange some items vertically, and some horizontally (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
6
How can I assign multiple-lines to an item (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Variant voItem1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to voItem1
				Handle hoItem1
				Get Create (RefClass(cComItem)) to hoItem1
				Set pvComObject of hoItem1 to voItem1
					Set ComCaption of hoItem1 to "Item <br><c><b>1"
				Send Destroy to hoItem1
				Variant voItem2
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to voItem2
				Handle hoItem2
				Get Create (RefClass(cComItem)) to hoItem2
				Set pvComObject of hoItem2 to voItem2
					Set ComCaption of hoItem2 to "Item <br><c><b>2"
				Send Destroy to hoItem2
				Variant voItem3
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to voItem3
				Handle hoItem3
				Get Create (RefClass(cComItem)) to hoItem3
				Set pvComObject of hoItem3 to voItem3
					Set ComCaption of hoItem3 to "Item <br><c><b>3"
				Send Destroy to hoItem3
			Send Destroy to hoItems1
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
5
How can I assign multiple-lines to an item (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
4
How can I add new items arranged horizontally to the toolbar control (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Variant voItem
		Get ComAdd of hoItems "" 2 Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Variant voItems1
			Get ComItems of hoItem to voItems1
			Handle hoItems1
			Get Create (RefClass(cComItems)) to hoItems1
			Set pvComObject of hoItems1 to voItems1
				Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing
				Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing
			Send Destroy to hoItems1
			Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup)
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
3
How can I add new items arranged horizontally to the toolbar control (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "[group=3](Item 1,Item 2,Item 3)"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
2
How can I add new items to the toolbar control (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Get ComAdd of hoItems "Item 1" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 2" Nothing Nothing to Nothing
		Get ComAdd of hoItems "Item 3" Nothing Nothing to Nothing
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure
1
How can I add new items to the toolbar control (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1,Item 2,Item 3"
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure